From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 5 Jun 1994 12:01:16 +0000 (+0000)
Subject: (PC-do-completion): Clear text props from inserted text.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91270
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e5fd28221b7f9c7404374b09751148255a581241;p=emacs.git

(PC-do-completion): Clear text props from inserted text.
---

diff --git a/lisp/complete.el b/lisp/complete.el
index b4e374532a3..b9c759588bc 100644
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -475,7 +475,8 @@ See `PC-complete' for details."
 					     (delete-char 1)
 					     (setq end (1- end))))
 				      (setq improved t))
-				    (insert (substring prefix i (1+ i)))
+				    ;; Use format to discard text properties.
+				    (insert (format "%s" (substring prefix i (1+ i))))
 				    (setq end (1+ end)))
 				  (setq i (1+ i)))
 				(or pt (equal (point) beg)
@@ -533,9 +534,10 @@ See `PC-complete' for details."
 	    (if (null mode)
 		(PC-temp-minibuffer-message " (Sole completion)"))
 	  (delete-region beg end)
-	  (insert (if filename
-		      (substitute-in-file-name (concat dirname (car poss)))
-		    (car poss))))
+	  (insert (format "%s"
+			  (if filename
+			      (substitute-in-file-name (concat dirname (car poss)))
+			    (car poss)))))
 	t)))))